Disc Station 13

home *** CD-ROM | disk | FTP | other *** search

/ Disc Station 13 / Disc Station Vol 13.iso / heart / momomo / momomo.ntc < prev next >

Wrap

Text File | 1996-11-06 | 59KB | 2,964 lines

;//////////////////////////////////////////////////////// ; ; éαéαéαÆ╩ö╠âVâXâeâÇ âVü[âPâôâXâfü[â^ version 1.13.10 ; ; Programed by Nozomi ; ; 1996/ 9/20 ; ;//////////////////////////////////////////////////////// ;/////////////////// ; âtâîü[âÇÉ▌ÆΦ ;/////////////////// @SNDfade 2 @FRMlay 5,(0, 0), 10, 2 @FRMlay 1,(0, 6), 80, 54, 1 @FRMact 1 @TXTlength 550 @TXTcol 255, 1 @FRMlay 2,(20, 1), 40, 2, 1 @FRMact 2 @TXTlength 550 @TXTcol 255, -1 @FRMlay 3,(37, 6), 33, 25, 1 @FRMact 3 @TXTlength 550 @TXTcol 255, 1 @FRMlay 4,(37, 33), 33, 25, 1 @FRMact 4 @TXTlength 550 @TXTcol 255, 1 $itemMax = 67 ; Åñòiâyü[âWÉö $up = 0 $down = 0 $item = 1 @WALL @FRMclr 0 @CLR (0, 0), 80, 60 @Mouse 0 @Effect 2, 255, 10 @AVIEX op_mas01.avi @PCMload nokone.wlk @SND 2 @SHOPon @Palette 255, 255, 255, 255 @Effect 10, 246, 8 @Mouse 1 @ITEMRESET @DRAWdisable @SWITCH 1 ;âAâCâRâôé╠ôoÿ^ @ICONload icon, 20, 29 @ICONset exit, 5, 6, 7, 8, 9, 9, 8, 7, 6, 46 @ICONset ue, 3, 0, 2, 4, 40 @ICONset sita, 3, 1, 3, 5, 41 @ICONset menu, 0, 13, 53 @ICONset buy, 0, 10, 50 @ICONset buy2, 0, 10, 50 @ICONset print, 0, 12, 52 @ICONset list, 0, 11, 51 @ICONset menu1, 0, 14, 54 @ICONset menu2, 0, 15, 55 @ICONset menu3, 0, 16, 56 @ICONset menu4, 0, 17, 57 @ICONset menu5, 0, 18, 58 @ICONset menu6, 0, 19, 59 @ICONset menu7, 0, 20, 60 @ICONset menu8, 0, 21, 61 @ICONset menu9, 0, 22, 62 @ICONset menu10, 0, 23, 63 @ICONset menu11, 0, 14, 54 @ICONset menu12, 0, 15, 55 @ICONset menu13, 0, 16, 56 @ICONset menu14, 0, 17, 57 @ICONset menu15, 0, 18, 58 @ICONset menu16, 0, 19, 59 @ICONset menu17, 0, 20, 60 ;@ICONset menu18, 0, 21, 61 @ICONput exit, (76, 0) @COMMENT (0, 0), 2, ôXé≡Åoé▄é╖ @ICONjump :exit @WALL opwall, 212 @DRAWenable @EFFECT 10, 246, 10 @DRAWdisable @MOUSE 1 @ICONput menu, (12, 0) @COMMENT (0, 0), 2, Æ╩ö╠âüâjâàü[é╓Éié▐ @ICONjump :menustart @DRAWenable @grpdisp manga01, 8, 40, 52, 2 @keywait @clr (1, 5), 78, 54, 2 @grpdisp manga02, 8, 40, 52, 2 @keywait @clr (1, 5), 78, 54, 2 @grpdisp manga03, 8, 40, 52, 2 @keywait @clr (1, 5), 78, 54, 2 @grpdisp manga04, 8, 40, 52, 2 @keywait @clr (1, 5), 78, 54, 2 @grpdisp manga05, 8, 40, 52, 2 @keywait @clr (1, 5), 78, 54, 2 @grpdisp manga06, 8, 40, 52, 2 @keywait @clr (1, 5), 78, 54, 2 @grpdisp manga07, 8, 40, 52, 2 @keywait @clr (1, 5), 78, 54, 2 @grpdisp manga08, 8, 40, 52, 2 @keywait @clr (1, 5), 78, 54, 2 @grpdisp manga09, 8, 40, 52, 2 @keywait @clr (1, 5), 78, 54, 2 @grpdisp manga10, 8, 40, 52, 2 @keywait @clr (1, 5), 78, 54, 2 @grpdisp manga11, 8, 40, 52, 2 @keywait @clr (1, 5), 78, 54, 2 @ICONclr menu @grpdisp manga12, 8, 40, 52, 2 @keywait @Goto :opend :menustart @PCM 1 @ICONreset menu @ICONclr menu :opend @clr (1, 5), 78, 54, 2 @DRAWdisable @wall menuwall, 212 @Gosub :SetMenuIcon @Gosub :SetSprite @Gosub :SprClrShop @Gosub :SprDispMenu @DRAWenable @Goto :loop2 :Menu @Gosub :SetMenuIcon @Gosub :SprClrShop $up = 0 $down = 0 @wall menuwall, 212 @Gosub :SprDispMenu @DRAWenable :loop2 @FRMact 5 @goto :loop2 :Main @mouse 0 @Gosub :ResetMenuIcon @Gosub :SprClrMenu @wall shopwall, 212 @Gosub :SprDispShop @Gosub :SetSystemIcon @Gosub :allowSet @mouse 1 @FRMact 3 @Gosub :itemDisp :loop @goto :loop :up @PCM 1 @ICONRESET ue @IF $item == 1 :alwset $item = $item - 1 @Gosub :itemDisp :alwset @Gosub :allowSet @Goto :loop :allowSet @DRAWdisable @IF $item != 1 :up1 @IF $up != 0 :up2 @ICONclr ue $up = 1 @Goto :up2 :up1 @IF $up == 0 :up2 @ICONput ue, (0, 0) $up = 0 @COMMENT (0, 0), 2, æOâyü[âW @ICONjump :up :up2 @IF $item != $itemMax :down1 @IF $down != 0 :down2 @ICONclr sita $down = 1 @Goto :down2 :down1 @IF $down == 0 :down2 @ICONput sita, (6, 0) $down = 0 @COMMENT (0, 0), 2, Äƒâyü[âW @ICONjump :down :down2 @DRAWenable @RET :down @PCM 1 @ICONRESET sita @IF $item == $itemMax :alwset $item = $item + 1 @Gosub :itemDisp @Gosub :allowSet @Goto :loop :exit @Mouse 0 @PCM 1 @FRMclr 0 @Effect 10, 255, 8 @DRAWdisable @Mouse 0 @WALL @CLR (0, 0), 80, 60 @ICONclr exit @ICONclr ue @ICONclr sita @ICONclr menu @ICONclr buy @ICONclr buy2 @ICONclr print @ICONclr list @ICONclr menu1 @ICONclr menu2 @ICONclr menu3 @ICONclr menu4 @ICONclr menu5 @ICONclr menu6 @ICONclr menu7 @ICONclr menu8 @ICONclr menu9 @ICONclr menu10 @ICONclr menu11 @ICONclr menu12 @ICONclr menu13 @ICONclr menu14 @ICONclr menu15 @ICONclr menu16 @ICONclr menu17 ;@ICONclr menu18 @SPRoff 450, 451, 452, 453, 454, 455, 456, 457 @SPRstop 450, 451, 452, 453, 454, 455, 456, 457 @DRAWenable @Effect 10, 255, 10 @SHOPoff @SNDfade 2 @WAIT 10 @AVIEX ed_mas01.avi @PCMload nokone.wlk @Effect 2, 255, 8 @SND 2 @END ;//////////////////////// ; âyü[âWîƒì⌡ ;/////////////////////// :menu1 @PCM 1 @ICONreset menu1 @GetLabel $table, :items @GetLabel $item, :syokuhin $item = $item - $table ; ÉHòi @Goto :Main :menu2 @PCM 1 @ICONreset menu2 @GetLabel $table, :items @GetLabel $item, :kittin $item = $item - $table ; âLâbâ`âôâOâbâY @Goto :Main :menu3 @PCM 1 @ICONreset menu3 @GetLabel $table, :items @GetLabel $item, :nuigurumi $item = $item - $table ; é╩éóé«éΘé▌ @Goto :Main :menu4 @PCM 1 @ICONreset menu4 @GetLabel $table, :items @GetLabel $item, :pinbatti $item = $item - $table ; âsâôâoâbâW @Goto :Main :menu5 @PCM 1 @ICONreset menu5 @GetLabel $table, :items @GetLabel $item, :taoru $item = $item - $table ; â^âIâï @Goto :Main :menu6 @PCM 1 @ICONreset menu6 @GetLabel $table, :items @GetLabel $item, :guzzu $item = $item - $table ; âOâbâY @Goto :Main :menu7 @PCM 1 @ICONreset menu7 @GetLabel $table, :items @GetLabel $item, :teleca $item = $item - $table ; âeâîâJ @Goto :Main :menu8 @PCM 1 @ICONreset menu8 @GetLabel $table, :items @GetLabel $item, :kawakomono $item = $item - $table ; èvÅ¼ò¿ @Goto :Main :menu9 @PCM 1 @ICONreset menu9 @GetLabel $table, :items @GetLabel $item, :bunbougu $item = $item - $table ; ò╢û[ï∩ @Goto :Main :menu10 @PCM 1 @ICONreset menu10 @GetLabel $table, :items @GetLabel $item, :bag $item = $item - $table ; âoâbâO @Goto :Main :menu11 @PCM 1 @ICONreset menu11 @GetLabel $table, :items @GetLabel $item, :raceing $item = $item - $table ; âîü[âVâôâO @Goto :Main :menu12 @PCM 1 @ICONreset menu12 @GetLabel $table, :items @GetLabel $item, :irui $item = $item - $table ; ê▀ù▐ @Goto :Main :menu13 @PCM 1 @ICONreset menu13 @GetLabel $table, :items @GetLabel $item, :gamesoft $item = $item - $table ; âQü[âÇâ\âtâg @Goto :Main :menu14 @PCM 1 @ICONreset menu14 @GetLabel $table, :items @GetLabel $item, :discstation $item = $item - $table ; écér @Goto :Main :menu15 @PCM 1 @ICONreset menu15 @GetLabel $table, :items @GetLabel $item, :cdvideo $item = $item - $table ; ébécü^éuéhécédén @Goto :Main :menu16 @PCM 1 @ICONreset menu16 @GetLabel $table, :items @GetLabel $item, :event $item = $item - $table ; âCâxâôâgÅñòi @Goto :Main :menu17 @PCM 1 @ICONreset menu17 @GetLabel $table, :items @GetLabel $item, :osusume $item = $item - $table ; é¿é╖é╖é▀ @Goto :Main ;:menu18 ;@PCM 1 ;@ICONreset menu18 ;$item = 51; é╚é╡ ;@Goto :Main :menu @PCM 1 @ICONreset menu @Gosub :ResetSystemIcon @Goto :Menu :list @PCM 1 @ITEMlist @ICONRESET list @Goto :loop :send @PCM 1 @ITEMsend @ICONRESET print @Goto :loop :buya @PCM 1 $ab = 0 $buyfl = 1 @Gosub :itemBuy @ICONRESET buy @IF $buyfl == 0 :loop @ITEMbuy @Goto :loop :buyb @PCM 1 $ab = 1 $buyfl = 1 @Gosub :itemBuy @ICONRESET buy2 @IF $buyfl == 0 :loop @ITEMbuy @Goto :loop ;----------------------------------------------------------------------------------- ;*********************************************************************************** ; Åñòié╠Éαû╛ ;*********************************************************************************** ;----------------------------------------------------------------------------------- :itemDisp @GetLabel $table, :items $table = $table